﻿Imports Microsoft.DirectX
Imports Microsoft.DirectX.Direct3D
Public Class RundenAnfangBild
    Public Const FrameMax As Integer = 30
    Public Frames As Integer
    Public Property Frame() As Integer
        Get
            Return Frames
        End Get
        Set(ByVal value As Integer)
            Frames += 1
        End Set
    End Property
    Dim ArmeeHintergrund As Integer
    Dim Text As ObjektText
    Public Sub New()
        ArmeeHintergrund = Array.IndexOf(Objektverwalter.TagzuTagArmee, Objektverwalter.Spielfeld.AktuellerSpieler.Armee)
        Text = New ObjektText(New String() {Sprachconverter.Translate("Tag") + " " + Objektverwalter.Spielfeld.Runde.ToString}, 50, Hauptmenü.MainMenü.MalPanel.Height / 2 - 60, Nothing, "Comic Sans MS", 120, FontStyle.Bold)
    End Sub
    Public Function Malen() As Boolean
        If Hauptmenü.Aufzeichnungsspulen Then Return True
        ObjektMaus.Visible = False
        Dim M As ObjektSpielMenü = Objektverwalter.Menü
        M.Spielmodus = ObjektSpielMenü.Spielmodi.TagZuTagAnzeige
        Dim sngRotation As Double = 0
        Dim intColor As Color = Color.FromArgb(255, 255, 255, 255)
        With Grafikengine.recBild
            .X = 0
            .Y = 0
            .Width = 480
            .Height = 320
        End With
        Grafikengine.ptfRotCenter = Nothing
        Grafikengine.ptfPosition = New Drawing.Point(0, 0)
        With Grafikengine.szfScale
            .Width = Hauptmenü.MainMenü.MalPanel.Width
            .Height = Hauptmenü.MainMenü.MalPanel.Height
        End With
        Grafikengine.Sprite.Draw2D(Objektverwalter.TagzuTagAnzeige(ArmeeHintergrund), Grafikengine.recBild, Grafikengine.szfScale, Grafikengine.ptfRotCenter, sngRotation, Grafikengine.ptfPosition, intColor)
        With Grafikengine.recBild
            .X = 0
            .Y = 0
            .Width = 211
            .Height = 350
        End With
        Grafikengine.szfScale = Nothing
        Grafikengine.ptfPosition = New Drawing.Point(Hauptmenü.MainMenü.MalPanel.Width - 450, Hauptmenü.MainMenü.MalPanel.Height / 2 - 175)
        Grafikengine.Sprite.Draw2D(Objektverwalter.KOS(Objektverwalter.Spielfeld.AktuellerSpieler.KOS(0).Bild).KOTextur, Grafikengine.recBild, Grafikengine.szfScale, Grafikengine.ptfRotCenter, sngRotation, Grafikengine.ptfPosition, intColor)
        If IsNothing(Objektverwalter.Spielfeld.AktuellerSpieler.KOS(1)) = False Then
            Grafikengine.ptfPosition.X += 225
            Grafikengine.Sprite.Draw2D(Objektverwalter.KOS(Objektverwalter.Spielfeld.AktuellerSpieler.KOS(1).Bild).KOTextur, Grafikengine.recBild, Grafikengine.szfScale, Grafikengine.ptfRotCenter, sngRotation, Grafikengine.ptfPosition, intColor)
        End If
        Grafikengine.Sprite.End()
        Schriftengine.Sprite2.Begin(SpriteFlags.AlphaBlend)
        Text.Malen(Schriftengine.Sprite2)
        Schriftengine.Sprite2.Flush()
        Schriftengine.Sprite2.End()
        Grafikengine.Sprite.Begin(SpriteFlags.AlphaBlend)
        If FrameMax <= Frame Then
            ObjektMaus.Visible = True
            Return True
        End If
        Frames += 1
        Return False

    End Function
End Class
